home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_21_(10-1984).d64 / run me first (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  50 lines
  1. 5 REM CBM USERS OF NORMAN DISK LIBRARY
  2. 10 REM WRITTEN BY DAVID TINGLER
  3. 15 POKE53280,0:POKE53281,0:POKE646,1:PRINTCHR$(14):PRINTCHR$(147)
  4. 20 PRINTTAB(7)"[195]OMMODORE [213]SERS OF [206]ORMAN"
  5. 25 PRINTTAB(5);"C/O [193]. [196]AVID [211]AUSE, [212]REASURER"
  6. 30 PRINT" 2111 [202]AZZMAN [196]RIVE,[206]ORMAN, [207][203]  73071"
  7. 35 PRINT"[159][208]RESIDENT:   [158][199]ARY [203]OHLER........325-2260"
  8. 40 PRINT"[159][211]ECRETARY:   [158][205]ARYE [203]ERR.........321-8206"
  9. 45 PRINT"[159][206]EWSLETTER:  [158][211]AM [194]ARRETT........321-2601"
  10. 50 PRINT"[159][193]CTIVITIES:  [158][202]OHN [217]ODER.........364-1942"
  11. 55 PRINT"[159][204]IBRARIAN:   [158][195]LAY [204]EHMANN.......329-8292"
  12. 60 PRINT"[159][212]RUSTEES:    [158][194]OB [208]EETZ..........793-1856"
  13. 65 PRINT"             [158][205]ATT [200]AGER.........872-8187"
  14. 70 PRINT"[159][194][194][211]:         [158][207][195][201][197]...............366-7345"
  15. 75 PRINT"[159][212]REASURER:   [158][196]AVE [211]AUSE.........364-7018"
  16. 80 GOSUB235
  17. 85 PRINTCHR$(147):PRINT"[159]  [208]UBLIC DOMAIN SOFTWARE IS AVAILABLE"
  18. 90 PRINT" TO ALL CLUB MEMBERS, BUT WE NEED YOUR "
  19. 95 PRINT"   PROGRAMS SO WE CAN BUILD THE BEST"
  20. 100 PRINT"     THE BEST CLUB LIBRARY AROUND!"
  21. 105 PRINT"[159]   [193]LL SOFTWARE CONTAINED IN THE CLUB"
  22. 110 PRINT"LIBRARY IS BELIEVED TO BE IN THE PUBLIC"
  23. 115 PRINT" DOMAIN.  [208]LEASE CONTACT THE LIBRARIAN"
  24. 120 PRINT"  IF YOU HAVE ANY INFORMATION TO THE"
  25. 125 PRINT"               CONTRARY."
  26. 130 PRINTTAB(3)"[159][195]OMMODORE IS A REGISTERED TRADEMARK"
  27. 135 PRINT"   OF [195]OMMODORE [194]USINESS [205]ACHINES, [201]NC."
  28. 140 GOSUB235
  29. 145 PRINTCHR$(147)
  30. 150 PRINT"[159][208][210][197][211][211]:
  31. 155 [153][163]3)"<(null)>SYS  TO READ AGAIN."
  32. 160 [153][163]3)"OPEN<STR$>SYS  TO READ THE DISK DOCUMENTATION."
  33. 165 [153][163]3)"OPEN<(null)>SYS  TO RUN THE DISK MENU."
  34. 170 [153][163]3)"OPEN<VAL>SYS  TO EXIT PROGRAM."
  35. 175 [161]C$:[139]C$[178]"R"[167]5
  36. 180 [139]C$[178]"D"[167]200
  37. 185 [139]C$[178]"M"[167]225
  38. 190 [139]C$[178]"E"[167]230
  39. 195 [137]175
  40. 200 [151]53281,11:[151] 53280,11:[159]2,8,2,"AUG DISK.DOC":[153][199](147);:C[178]0
  41. 205 [132]2,P$:[139]ST [175]64[167][153]P$:[137]220
  42. 210 [151]646,1:[153]P$:C[178]C[170]1:[139]C[178]23[167][141]235:[153][199](147);
  43. 215 [137]205
  44. 220 [160]2:[141]235:[137]145
  45. 225 [147]"DISK MENU",8:[162]
  46. 230 [128]
  47. 235 C[178]0:[153]"     OPEN(PRESS <SPACE BAR> TO CONTINUE)"
  48. 240 [161]A$:[139]A$[179][177][199](32)[167]240
  49. 245 [142]
  50.